home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / imprint.bas < prev    next >
BASIC Source File  |  1998-01-05  |  722b  |  27 lines
  1. Attribute VB_Name = "Module1"
  2. Global Const BSize = 10
  3. Type TemplateArrays
  4.   TemplateArray(10, 10) As Boolean
  5.   Name As String
  6. End Type
  7. Global Temps(100) As TemplateArrays
  8. Global CurrentTemp As Integer
  9. Public Sub DrawTemplate(Index)
  10. Form1.Picture1.Cls
  11. For X = 1 To 10
  12.   For Y = 1 To 10
  13.     If Temps(Index).TemplateArray(X, Y) = True Then
  14.       Form1.Picture1.Line ((X - 1) * BSize, (Y - 1) * BSize)-(X * BSize, Y * BSize), RGB(255, 0, 0), BF
  15.     Else
  16.       Form1.Picture1.Line ((X - 1) * BSize, (Y - 1) * BSize)-(X * BSize, Y * BSize), RGB(0, 0, 0), BF
  17.     End If
  18.   Next Y
  19. Next X
  20. End Sub
  21. Public Sub UpdateList()
  22. Form1.List1.Clear
  23. For i = 1 To 80
  24.   Form1.List1.AddItem Temps(i).Name
  25. Next i
  26. End Sub
  27.